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**F ILE**1D**ALLOCM - 
AAAAAA LL LL 000000 cccccccc MM MM : 
AABAMA LL LL 000000 cccccccc MM MM : 

As AA LL LL 00 oo cC MMMM =6MMMM : 
AA AA LL LL 00 oo CC MMMM MMMM ; 
AR AA LL LL 00 oo CC MM MM : 
ae AA LL LL 00 oo CC MM MM : 
BA AA LL LL 00 oo cc MM MM : 
As AA LL LL 00 oo CC MM MM : 
AAAAAAAAAA LL LL 00 oo cc MM MM ; 
AAAAAAAAAA LL LL 00 oo CC MM MM : 
AB AA LL LL 00 oo CC MM MM eoee : 
AB AA LL LL 00 oo cc MM MM cece ; 
AA AA LLLLLLLLLE LLLLLLLLLL 000000 cccccccc MM MM eee ; 
AB AA LLLLLLLLLE LLLLLLLLLL 000000 cccccccc MM MM eeee : 
LL T1111] SSSSSSSS ; 
LL 1131 SSSSSSSS ; 
LL I] SS : 
LL I] $$ ; 
LL I] SS 3 
LL I] SS : 
LL I] SSSSSS ; 
LL I] SSSSSS : 
LL il SS : 
LL I] SS : 
LL I] SS : 
LL I] SS : 
LLLLLLLLLL III! SSSSSSSS : 
LLLLLLLLLL HII] SSSSSSSS : 
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ALLOCM 16-Sep-1984 01:03:3 VAX=11 Bliss-32 V4.0-74 P 1 
1o-8e8=138e 94:03:33 TIER SUMGHARTERSCMOUNT. SRCIALLOCN.B3204°" (1) 
MODULE ALLOCM ( lacie tin tae 
IDENT = ett ; 
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BEGIN 


' 
eRe REA AAA AAAEAAAAARERAAAAAEAAEA ARATE AARA AAA AAA ARAAARAAAAEANAKEREEREEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TER OF CH LIC 
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'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= seeokat ihn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


® 
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® 
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® 
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® 
! « 
'e TRANSFERRED. * 
® 
® 
® 
® 
® 
® 
® 
* 
® 
WETTITITITILILILI LLL LLL LI LLL LLL LLL LLL LLL LLL LLL ELL LLL LLL LLL LLL LLL 
1 

FACILITY: MOUNT Utility Structure Levels 1 & 2 

i ABSTRACT: 

This routine allocates dynamic memory from the selected allocation pool. 
i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 19-Oct-1977 8:49 
i MODIFIED BY: 


v03-003 HH0041 Hai guand 24-J Ay tes 
Remove REQUIRE ‘LIBD$:CVASLIB.OBJJMOUNTMSG.B52'. 


v03-002 CDS0001 Christian D. Seqthor 6-Feb-1984 
Have ALLOCATE_MEM store returned size as a longword 
so that large buffer caches may be allocated from 
paged pool. 
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v03-001 RASO180 Ron Schaefer enue 1965 
Fix broken calls caused by changes in DISMNTSHR. 


v02-001 ACGO175 Andrew.C. Goldstein, 4-Jun-1980 20:16 
Release 1/0 database lock before error exit 


v02-000 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:37 


aa Previous revision history moved to MOUNT.REV 


LIBRARY 1 RE SSUIORARY#L 18,52": 
REQUIRE "SRC$:MOUDEF .B52'; 
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: tg ? } GLOBAL ROUTINE ALLOCATE_MEM (SIZE_NEEDED, AREA) = 

: ts 2 Je 

; r FUNCTIONAL DESCRIPTION: 

3 3 % ! | This routine allocates dynamic memory from the selected allocation pool. 
: Bl 1161: 

; ¢ \§ 1 ! CALLING SEQUENCE: 

: \7 : ALLOCATE_MEM (ARG1, ARG2) 

: «85 15 1! INPUT PARAMETERS: 

; 218 7 | ARG1: size needed in bytes 

. § 617 1! ARG2: code of area to allocate from: 

>; «6288 oi8 1! = non-paged system pool 

; 8 619 1! = paged system pool 

: + Y ! : 2 = process allocation region 

; % 6 2 1 ' IMPLICIT INPUTS: 

; @§ be 1! NONE 

3 94 . 22 

3 95 5 1 ! OUTPUT PARAMETERS: 

es Fi Bithew 

: 98 8 1 | IMPLICIT OUTPUTS: 

; 99 Be 9 1! NONE 

; 100 630 1! 

3; 101 0631 1 ! ROUTINE VALUE: 

3 198 6 § 1! address of block allocated 

; 10 6 1! 

; 104 634 1 ! SIDE EFFECTS: 

: 105 0635 1! memory allocated, zeroed, and full longword size is stored 
3; 1 6 § 1! at size word location. 

10 $38} | 

; 199 5 Bh 

: 119 ? BEGIN 

; 18 : BUILTIN 

3 HF i TESTBITSC; 

> 115 5 2 LINKAGE 

FH 11g § EXE_ALLOCO = JSB 

3 CW NOPRESERVE (3, 4, 5) 

; 133 3 GLOBAL (SIZE = 1, ADDRESS = 2), 

; 120 50 EXE_ALLOC1 = JSB (REGISTER = 3) 

: 121 51 NOPRESERVE (4, 5) 

: \ § § GLOBAL (SIZE = 1, ADDRESS = 2); 

; 124 4 2 LOCAL 

3 ie 5 2. STATUS ! status return of allocator 
3 6 36 BLOCK_SIZE i Local copy of size allocated 
; i 3 BLOCK“ADDRESS; i local copy of address 
: 129 3 EXTERNAL 


<> 


nN 9 
OcM 16-Sep-1984 01:03: VAX=-11 Bliss-32 V4.0-742 Pp 4 A 
vO%2000 ergee 1 8Be PhP Te | Wc dbwBAAS FERS cMOoNT SecaaLLocH.e3204%° (25 v 
CLEANUP_FLAGS  : BITVECTOR ’ sigenup action flags 
1 CTLSGQ_ALLOCREG : ADDRESSING_MODE (ABSOLUTE); 
¢ ! process allocation region Listhead 


EXTERNAL ROUTINE 
UNLOCK_10D8 


uw 


ADDRESSING_MODE (LONG _RELATIVE); 
! unlock 1/0 data base 


BEGIN ! nested block to avoid scope conflicts 
GLOBAL REGISTER 
s i, ! rounded up allocation size 
ADDRESS = 2: REF VECTOR C,WORDJ; ! address returned by exec routines 
EXTERNAL ROUTINE 


EXESALONONPAGED : EXE_ALLOCO ADDRESSING_MODE (ABSOLUTE), 
EXESALOPAGED : EXE_ALLOCO ADDRESSING_MODE (ABSOLUTE), 
EXESALLOCATE : EXE_ALLOC1 ADDRESSING_MODE (ABSOLUTE); 


! Simply compute the size needed rounded up to the next quadword and call the 
appropriate exec allocation routine. 


SIZE = .SIZE_NEEDED; 


STATUS = ( 
case »AREA FROM 0 TO 2 OF 


0): EXESALONONPAGED (); 
13: EXESALOPAGED (); 
2): EXESALLOCATE (CTL$GQ_ALLOCREG); 


WP LE At Ae Ay At th Ae PPLE EEE 


: Copy the block size and address into locals to dodge the MOVCS. 


BLOCK_SIZE = .SIZE; 
BLOCKADDRESS = .ADDRESS; 


IF NOT .STATUS 
THEN 


BEGIN 
IF TESTBITSC (CLEANUP_FLAGSCCLF_UNLOCKDB)) 
THEN UNLOCK 10b8 QO; 

ERR EXIT (SS$_INSFMEM) ; 


SN NSNNSIOO OO 
uw 


(,BLOCK_ADDRESS + 8) = .BLOCK_SIZE; 
RETURN BLOCK_ADDRESS; 


END; ! end of routine ALLOCATE_MEM 


CHSFILL (0, .BLOCK SIZE, “BLOCK ADDRESS); 
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; Routine Size: 


7 00006 
000000006 
0 000000006 


08 


Routine Base: 


000000006 
000000006 


0124 
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SCODES + 0000 


O}: 03: 32 VAX-11 Bliss 32 40-742 5 
DISK SVMSMASTER: CMOUNT. SRCJALLOCM. B32" 1% (25 
LLOCM 

\15e5000\ 
CLEANUP_FLAGS, CTL$GQ_ALLOCREG 
UNLOCK_TODB, EXESALONONPAGED 
EXESALOPAGED, EXESALLOCATE 
SCODES ,NOWRT,2 
A ALLOCATE MEM, Save R2,R3,R4,R5,R6,R7,RB.R9,-; 0603 
size. E NEEDED, SIZE : 06 4 
AREA + 0687 
-1$,- ; 
$-1$.- : 
4$-1$ ; 
@#EXESALONONPAGED + 0689 
Q¥EXESALOPAGED + 0690 
#CTL$GQ ALLOCREG, R3 + 0691 
a¥EXESALLO F 
BLOCK size > 0698 
Dness. COCK _ADDRESS : 0699 
Hh CLEANUP_FLAGS, 6$ : 070 
ne “UNLOCK_ 1008 3 0706 
#292, =(SP) : 0707 
#1, {1B8$STO : 
0; (SP), #0, BLOCK_SIZE, (BLOCK_ADDRESS) : 0710 
BLOCK_SIZE, 8(BLOCK_ADDRESS) : 0711 
BLOCK-ADDRESS, RO : Orie 


10 
1b-3¢ -1984 01:03:3 VAX-11 Bliss-32 V4.0-742 Page 6 
1 ta 1 94:08:38 DISKSVMSMAS TER: CMOUNT. SRCJALLOCM.B32: 1° (3) 
GLOBAL ROUTINE DEALLOCATE_MEM (ADDRESS, AREA) : NOVALUE = 


144 
' 
FUNCTIONAL DESCRIPTION: 
This routine deallocates dynamic memory to the selected allocation pool. 
CALLING SEQUENCE: 
DEALLOCATE_MEM (ARG1, ARG2) 
INPUT PARAMETERS: 
ARG1: address of block to deallocate 
ARG2: we of area to deallocate to: 
= non-paged system pool 
1 = paged system pool - 
2 = process allocation region 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
memory deallocated 
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s 

i 

134 ADDRESS : REF VECTOR C,WORD]; 

136 LINKAGE 

75 EXE_DEALLOCO = JSB (REGISTER_= 0) : 

138 NOPRESERVE (2, 3, 4, 5), 

760 EXE_DEALLOC1 = JSB (REGISTER = 0, REGISTER = 1, REGISTER = 3) 
761 NOPRESERVE (2, 4, 55; 


EXTERNAL 
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CTL$GQ_ALLOCREG : ADDRESSING_MODE (ABSOLUTE); 
' process allocation region Listhead 


EXTERNAL ROUTINE 


EXESDEANONPAGED : EXE DEALLOCO ADDRESSING_MODE (ABSOLUTE), 
EXESDEAPAGED : EXE_DEALLOCO ADDRESSING_MODE (ABSOLUTE), 
770 EXESDEALLOCATE EXE_DEALLOC1 ADDRESSING_MODE (ABSOLUTE); 
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if: Sep PRAT Disk $V MeHAs FERCCMOUNT. SRCIALLOCM. 832: = * 635 


: 77 
; te Ay Just return the block to the appropriate area. 
i 26 775 2. 
i 7 ASE .AREA FROM 0 TO 2 OF 
: 5te 58 
: 269 108 EXESDEANONPAGED D CADDRES (0); 
; 20 77 EXESDEAPAGED (ADDRESS HF 
: 251 an 1s EXESDEALLOCATE (ADDRESSLOJ, .ADDRESS(4], CTL$GQ_ALLOCREG) 
: 3g 0782 1 END: ! end of routine DEALLOCATE_MEM 
.EXTRN EXESDEANONPAGED 
“EXTRN EXESDEAPAGED, EXESDEALLOCATE 
OFFC 00000 ENTRY p ate MEM, Save R2,R3,R4,R5,R6,R7,RB,~ ; 0715 
56 04 ac v0 0 02 MOVL ADBRESS : 0778 
02 99 08 aC CF 00006 CASEL AREA 76," : 0776 
OO1A 001 0006 0008 1$: WORD s18,- ; 
4$-1$° : 
0 56 DO 00011 2$ MOVL _R6, RO : 0778 
000000006 9F 16 00014 JSB av XESDEANONPAGED ; 
04 0001A RET ; 
0 56 DO 00018 3$ MOVL 6, RO : 0779 
000000006 9F i6 DO01E SB av#EXESDEAPAGED ; 
53 000000006 8F 20 00025 4$: MOVL  #CTL$GQ_ALLOCREG, R3 + 0780 
5} 08 Ab 3¢ 900 ¢ MOVZWL 8(R6), Ril : 
50 56 DO 000 9 MOVL 6, R ; 
000000006 9F 16 0003 JSB aw#é XESDEALLOCATE ; 
04 00039 RET : 0782 
; Routine Size: 58 bytes, Routine Base: SCODES + 005E 
> 256 o7gs 1 1 
3 335 0784 
: 256 0785 0 ELupon 
.EXTRN LIBSSTOP 
; PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 152 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


vOe=500 


Library Statistics 


eooccese Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 9 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:ALLOCM/OBJ=OBJ$:ALLOCM MSRC$:ALLOCM/UPDATE=(ENH$:ALLOCM) 


ns 152 code + 0 data bytes 
Elapsed. flees 003 ee *4 
Lines/CPU Min: 3987 
Losenee/<Py-Aiins 33528 

oe Used: 91 pages 
Compilation Complete 
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